home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 40 / 040.d81 / all smiles tutor (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  7KB  |  109 lines
  1. 5 mm=mm+1:ifmm=1thengosub60100
  2. 105 goto1910
  3. 110 print"[145]        [151]press space to continue    
  4. 120 [139][194](203)[179][177]60[167]120
  5. 130 [153]"load";:[151]56334,[194](56334)[176]1:[151]53272,([194](53272)[175]240)[170]12:[156]:[134]w(99,2):lv[178]0:mm[178]2:w(4,1)[178]33:w(4,2)[178]5:[129]b[178]6[164]13:w(b,1)[178]21:w(b,2)[178]55:[130]:w(82,1)[178]129:w(82,2)[178]250:w(50,1)[178]129:w(50,2)[178]250:w(99,1)[178]21:w(99,2)[178]250
  6. 180 w(1,1)[178]17:w(1,2)[178]50:sl$[178]"                                       ":w(3,1)[178]65:w(3,2)[178]15:w(5,1)[178]85:w(5,2)[178]30:w(26,1)[178]129:w(26,2)[178]25
  7. 200 x[178]2:y[178]1:cl[178]13:ch[178]82
  8. 210 [151]53280,12:[151]53281,12:d[178].:x1[178].:x2[178].:x3[178].:ok[178].:[129]t[178]54272[164]54295:[151]t,0:[130]:[151]54296,15:[139]lv[177]5[167]lv[178]5
  9. 230 ad[178]1[172]16[170]0:sr[178]15[172]16[170]2:[151]54284,ad:[151]54285,sr:[151]54282,0:[151]54281,255:[137]1210
  10. 260 [153]"stop";:[151]53281,12:[151]53280,12:d[178].:x1[178].:x2[178].:x3[178].:ok[178].:x[178]2:y[178]1:cl[178]13:ch[178]82:n[178]n[170]1:ml[178]1:[147]f$,8,1
  11. 300 ml[178]2:[147]f$[170]"/c",8,1
  12. 310 ml[178]3:[145]n[137]1310,1390,1500,1560,1630,1710,1770,1820
  13. 320 [144]:[139]a$[178]"d"[167][153]""a$;:[137]420
  14. 340 [139][198](a$)[177]69[175][198](a$)[179]78[167][153]"poke"a$;:[137]420
  15. 350 [139]a$[178]"p"[167][153]"stop"a$;:[137]420
  16. 360 [139]a$[178]"z"[167][153]""a$;:[137]420
  17. 370 [139]a$[178]"(NULL)"[167][153]"print"a$;:[137]420
  18. 380 [139]a$[178]"tab("[167][153]""a$;:[137]420
  19. 390 [139]a$[178]"(NULL)"[167][153]"cont"a$;:[137]420
  20. 400 [153]"print"a$;:[139]a$[178][199](32)[167]65535
  21. 410 [139]a$[178][199](13)[167]440
  22. 420 ci[178][198](a$)[171]64:[151]54283,w(ci,1):[151]54280,w(ci,2):[151]54283,[182](w(ci,1)[171]1):[137]65535
  23. 440 [130]:[160]2:[137]530
  24. 450 [160]2:[139]st[178]64[167]530
  25. 460 [153]"stop":[129]g[178]1[164]7:[153]sl$:[130]:[151]53265,[194](53265)[176]16:[153]"  we're sorry...your file may not be":[153]"loaded as commanded.  please check disk":[153]"in drive and press fire to try again...":[153]"or consult instruction manual.thank you":[153]sl$:[153]"on";[200](sl$,19);
  26. 510 [139][194](56320)[178]127[167][151]646,[182]([194](646)[171]1):[153]"ocmd";:[137]510
  27. 520 [153]"":[129]g[178]1[164]7:[153]sl$:[130]:[137]260
  28. 530 [139]x[178]2[167][153]"stopo":[151]53265,[194](53265)[176]16:[137]550
  29. 540 [139]x[178]12[167][153]"o":[151]53265,[194](53265)[176]16
  30. 550 [129]t[178]54272[164]54295:[151]t,0:[130]:[151]54296,15:ad[178]1[172]16[170]0:sr[178]15[172]16[170]2:[151]54284,ad:[151]54285,sr:[151]54282,0:[151]54281,255
  31. 580 [139][194](56320)[179][177]127[167]j[178][194](56320):[137]620
  32. 590 q[178][194](54272[170](1023[170]x[170](y[172]40))):[151]54272[170](1023[170]x[170](y[172]40)),[182]((q)[171]1):[137]580
  33. 600 [139][194](56320)[178]127[175]d[179][177]2[167]600
  34. 610 j[178][194](56320)
  35. 620 [139]j[178]119[167]x1[178]1023[170]x[170]1:x2[178]y[172]40:[139][194](x1[170]x2)[179]5[176][194](x1[170]x2)[178]82[167]730
  36. 630 [139]j[178]123[167]x1[178]1023[170]x[171]1:x2[178]y[172]40:[139][194](x1[170]x2)[179]5[176][194](x1[170]x2)[178]82[167]730
  37. 640 [139]j[178]126[167]x1[178]1023[170]x:x2[178]y[171]1:x3[178]x2[172]40:[139][194](x1[170]x3)[178]1[167]730
  38. 650 [139]j[178]125[167]x1[178]1023[170]x:x3[178](y[170]1)[172]40:[139][194](x1[170]x3)[178]1[176][194](x1[170]x3)[178]32[167]730
  39. 660 [139]j[178]119[167]x1[178]1023[170]x[170]1:x2[178]y[172]40:[139][194](x1[170]x2)[178]32[176][194](x1[170]x2)[178]99[167]730
  40. 670 [139]j[178]123[167]x1[178]1023[170]x[171]1:x2[178]y[172]40:[139][194](x1[170]x2)[178]32[176][194](x1[170]x2)[178]99[167]730
  41. 680 [139]j[178]111[167][142]
  42. 690 [139]d[179][177]2[167]600
  43. 700 [139]d[178]2[175]sm[178].[167]j[178]126:[137]730
  44. 710 [139]sm[178]1[167]1140
  45. 720 [137]600
  46. 730 [139]d[178]2[175]j[179][177]126[167]d[178].:sm[178].
  47. 740 x1[178]1023[170]x:x2[178]y[172]40:x3[178]x1[170]x2:[151]x3,ch:[151]54272[170]x3,cl:[139]j[178]119[167]x[178]x[170]1
  48. 760 [139]j[178]123[167]x[178]x[171]1
  49. 770 [139]j[178]126[167]y[178]y[171]1
  50. 780 [139]j[178]125[167]y[178]y[170]1
  51. 790 x3[178]1023[170]x[170]y[172]40:ch[178][194](x3):cl[178][194](54272[170]x3):[151]54283,.:[151]54280,.:[151]54283,w(ch,1):[151]54280,w(ch,2):[151]54283,[182](w(ch,1)[171]1):ok[178][194](x3):[139]ch[178]3[167]ch[178]5:cl[178]9
  52. 840 [151]x3,15:[151]x3[170]54272,0:[139]ok[179][177]32[175]d[179][177]1[167]600
  53. 850 [139]ok[178]2[176]d[178]2[167]d[178]2:[137]1110
  54. 860 [139]ok[178]32[167]d[178]1:j[178]125:[151]54283,21:[151]54280,y[172]9:[151]54283,20:[137]730
  55. 870 [139]ch[178]99[167]d[178]0:[137]600
  56. 880 x1[178]1023[170]x:x2[178]y[172]40:[141]1150:[129]t[178]65[164]73:[151]x1[170]x2,t:[129]h[178]1[164]80:[130]:[130]:[151]54283,0:[139]ok[178]3[167]940
  57. 910 [139]ok[178]19[167]940
  58. 920 x1[178]1023[170]x:x2[178]y[172]40:x3[178]x1[170]x2:[151]x3,ch:[151]54272[170]x3,cl:[137]1160
  59. 940 [145]jp[170]1[137]960,990,1030,1070,950
  60. 950 [128]
  61. 960 [139]ok[179][177]19[167]1160
  62. 970 [139]jp[178]0[167]jp[178]1:[153]"loadyou^may^advance^to^the^next^levelwait!
  63. 980 f$="maze 2":lv=lv+1:forg=1to2500:next:goto200
  64. 990 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  65. 1000 ifok<>19then1160
  66. 1010 print"[147]next^level":jp=2:forg=1to2500:next:f$="maze 3":lv=lv+1:goto200
  67. 1030 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  68. 1040 ifok<>19then1160
  69. 1050 print"[147]next^level":jp=3:forg=1to2500:next:f$="maze 4":x=12:y=20:ch=1:cl=0:lv=lv+1:goto210
  70. 1070 x3=1023+x+(y+1)*40:z=peek(x3):ifz=32thenok=32:ch=5:cl=9:goto860
  71. 1080 ifok<>19then1160
  72. 1090 print"[147]that's^it![146]":end:lv=lv+1:jp=4:f$="maze 5":goto200
  73. 1110 ifpeek(x3-40)=32thenj=126:poke54283,21:poke54280,y*9:poke54283,20:goto600
  74. 1120 ifpeek(x3-40)=99thend=.:j=126:goto730
  75. 1130 j=peek(56320):ifj=119orj=123thensm=1:goto620
  76. 1140 j=111:goto680
  77. 1150 poke54283,129:poke54280,5:return
  78. 1160 poke646,abs(peek(646)-1):print" you":print"died":x=2:y=1:cl=13:ch=82:x1=.:x2=.:x3=.:ok=.:d=.:goto530
  79. 1190 print"[147]you were lucky this time[146]!":f$="maze 1":lv=lv-1
  80. 1210 print"[147][153]  welcome to the all smiles tutorial [146]o":print:print"  i will guide you through a series of":print:print"mini-mazes that are similar to ones you":print:print" will be traveling through in the real":print:print"game where your life depends on knowing
  81. 1260 [153]:[153]" how to play.  you are the waito.  you move":[153]:[153]"     with the joystick in port 2.":[153]:[153]"  syspress the fire button to be tutored.":[153]:[153]"  press space bar to play all smiles.":[153]:[153]"           press q to quit.":[151]198,.
  82. 1284 [161]t$:[139]t$[178]" "[167]1860
  83. 1285 [139]t$[178]"q"[167]60000
  84. 1290 [139][194](56320)[178]127[167]1284
  85. 1300 f$[178]"tut 1":[141]260
  86. 1310 [153]"";:[153]"stop  you may walk on the green floor.":[153]"  you may not pass through a brick wall":[153]"  try walking left and right":[153]"  try walking through a wall":[153]"  notice the sound produced when walking
  87. 1370 print"  when you are done, press fire":gosub530:f$="tut 2":goto260
  88. 1390 print"[153]";:print"[144]you may move up & down on black ladders":print"if there is a ladder above you, you may":print"  move up.":print"if there is a ladder below you, you may":print"  move down.":print"be careful of ladders that take you up,
  89. 1460 [153]"  but won't take you down and vise-versa":[153]"press fire when you are done.":[141]530:f$[178]"tut 3":[137]260
  90. 1500 [153]"print";:[153]"printstopyou may move across the dark green":[153]"  hand-over-hand bars.":[153]"you may move left & right on them":[153]:[153]"press fire when you are finished.":[141]530:f$[178]"tut 4":[137]260
  91. 1560 [153]"print";:[153]"printstopyou may pass through the white doors":[153]"once the door has been passed through":[153]"  it turns into an impassable wall.":[153]:[153]"press fire to continue":[141]530:f$[178]"tut 5":[137]260
  92. 1630 [153]"print";:[153]"printstoptry jumping onto the waitb.":[153]"as you move upwards, you may move left &";:[153]"  right onto platforms and such.":[153]"experiment with the trampolines":[153]:[153]"press fire to go on.":[141]530